home *** CD-ROM | disk | FTP | other *** search
| Unknown | 2000-02-28 | 682 b |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was not able to be converted.
This format is not currently supported by dexvert.
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 05 43 6c 61 73 73 0d 43 | 6c 6f 73 65 4d 53 42 75 |.Class.C|loseMSBu|
|00000010| 74 74 6f 6e 9b 02 b0 01 | be 0b a0 09 07 00 0d 43 |tton....|.......C|
|00000020| 6c 6f 73 65 4d 53 42 75 | 74 74 6f 6e a4 01 06 43 |loseMSBu|tton...C|
|00000030| 61 6e 76 61 73 00 00 00 | 01 06 41 63 74 69 6f 6e |anvas...|..Action|
|00000040| 00 00 01 07 4d 6f 75 73 | 65 55 70 02 1a 02 1a 1b |....Mous|eUp.....|
|00000050| 27 53 75 62 20 4d 6f 75 | 73 65 55 70 28 58 20 41 |'Sub Mou|seUp(X A|
|00000060| 73 20 49 6e 74 65 67 65 | 72 2c 20 59 20 41 73 20 |s Intege|r, Y As |
|00000070| 49 6e 74 65 67 65 72 29 | 1e 69 66 20 58 20 3c 20 |Integer)|.if X < |
|00000080| 6d 65 2e 77 69 64 74 68 | 20 61 6e 64 20 58 20 3e |me.width| and X >|
|00000090| 20 30 20 74 68 65 6e 1f | 69 66 20 59 20 3c 20 6d | 0 then.|if Y < m|
|000000a0| 65 2e 68 65 69 67 68 74 | 20 61 6e 64 20 59 20 3e |e.height| and Y >|
|000000b0| 20 30 20 74 68 65 6e 8b | 01 27 69 66 20 69 6e 73 | 0 then.|.'if ins|
|000000c0| 69 64 65 20 74 68 65 20 | 62 75 74 74 6f 6e 20 58 |ide the |button X|
|000000d0| 20 26 20 59 20 76 61 6c | 75 65 73 20 77 68 65 6e | & Y val|ues when|
|000000e0| 20 6d 6f 75 73 65 20 75 | 70 20 66 69 72 65 20 62 | mouse u|p fire b|
|000000f0| 75 74 74 6f 6e 20 61 63 | 74 69 6f 6e 20 68 65 72 |utton ac|tion her|
|00000100| 65 20 3d 29 00 8d 01 27 | 44 65 70 65 6e 64 69 6e |e =)...'|Dependin|
|00000110| 67 20 6f 6e 20 74 68 65 | 20 61 63 74 69 6f 6e 20 |g on the| action |
|00000120| 79 6f 75 20 6d 61 79 20 | 4e 4f 54 20 6e 65 65 64 |you may |NOT need|
|00000130| 20 74 6f 20 73 77 69 74 | 63 68 20 74 68 65 20 61 | to swit|ch the a|
|00000140| 70 70 20 63 75 72 73 6f | 72 20 62 61 63 6b 20 74 |pp curso|r back t|
|00000150| 6f 20 61 20 0e 27 70 6f | 69 6e 74 65 72 20 68 65 |o a .'po|inter he|
|00000160| 72 65 2e 15 61 70 70 2e | 6d 6f 75 73 65 43 75 72 |re..app.|mouseCur|
|00000170| 73 6f 72 20 3d 20 6e 69 | 6c 14 27 66 69 72 69 6e |sor = ni|l.'firin|
|00000180| 67 20 61 63 74 69 6f 6e | 20 45 76 65 6e 74 06 41 |g action| Event.A|
|00000190| 63 74 69 6f 6e 00 1b 27 | 72 65 74 75 72 6e 69 6e |ction..'|returnin|
|000001a0| 67 20 74 6f 20 61 76 6f | 69 64 20 61 20 63 72 61 |g to avo|id a cra|
|000001b0| 73 68 06 72 65 74 75 72 | 6e 06 65 6e 64 20 69 66 |sh.retur|n.end if|
|000001c0| 06 65 6e 64 20 69 66 00 | 0d 27 6e 6f 72 6d 61 6c |.end if.|.'normal|
|000001d0| 20 73 74 61 74 65 0e 2f | 2f 6d 65 2e 73 74 61 74 | state./|/me.stat|
|000001e0| 65 20 3d 20 30 0d 2f 2f | 6d 65 2e 6e 6f 72 6d 61 |e = 0.//|me.norma|
|000001f0| 6c 28 29 00 94 01 27 53 | 65 74 74 69 6e 67 20 74 |l()...'S|etting t|
|00000200| 68 65 20 69 6e 44 6f 77 | 6e 20 70 72 6f 70 65 72 |he inDow|n proper|
|00000210| 74 79 20 74 6f 20 66 61 | 6c 73 65 20 62 65 63 61 |ty to fa|lse beca|
|00000220| 75 73 65 20 74 68 65 20 | 75 73 65 72 20 68 61 73 |use the |user has|
|00000230| 20 72 65 6c 65 61 73 65 | 64 20 74 68 65 20 6d 6f | release|d the mo|
|00000240| 75 73 65 20 62 75 74 74 | 6f 6e 13 2f 2f 6d 65 2e |use butt|on.//me.|
|00000250| 69 6e 44 6f 77 6e 20 3d | 20 66 61 6c 73 65 00 27 |inDown =| false.'|
|00000260| 27 73 77 69 74 63 68 69 | 6e 67 20 74 68 65 20 63 |'switchi|ng the c|
|00000270| 75 72 73 6f 72 20 62 61 | 63 6b 20 74 6f 20 61 6e |ursor ba|ck to an|
|00000280| 20 61 72 72 6f 77 20 16 | 2f 2f 6d 65 2e 6d 6f 75 | arrow .|//me.mou|
|00000290| 73 65 63 75 72 73 6f 72 | 20 3d 20 6e 69 6c 00 07 |secursor| = nil..|
|000002a0| 45 6e 64 20 53 75 62 00 | 00 00 |End Sub.|.. |
+--------+-------------------------+-------------------------+--------+--------+
